home *** CD-ROM | disk | FTP | other *** search
- { %filename% -- document methods }
- { Created %date% %time% by AppMaker }
-
- { This module overrides the AppMaker-generated code in z%Appname%Doc.% %}
- { It provides a place for you to add your own code and still be able to }
- { generate code for new changes to the user interface. This module will }
- { not be regenerated by AppMaker unless you delete it. Its superclass, }
- { z%Appname%Doc, may be regenerated to handle user interface changes % %}
- { without losing your hand-coded changes to this module. }
-
- Unit %unitname%;
- Interface
-
- Uses
- TCL,
- AMCL,
- z%AppName%Intf,
- %AppName%Intf,
- ResourceDefs;
-
- {----------}
- Implementation
-
- {----------}
- Function C%Appname%Doc.ReadData (var theData: Handle): Boolean;
- var
- theError: OSErr;
- Begin
- gApplication.RequestMemory (FALSE, FALSE);
- theError := CDataFile (itsFile).ReadAll (theData);
- if theData = nil then begin
- { Acknowledge (couldntReadID); }
- ReadData := FALSE;
- end else begin
- ReadData := TRUE;
- end;
- End; {ReadData}
-
- {----------}
- Procedure C%Appname%Doc.WriteData;
- Begin
- { application-specific write data to itsFile }
- End; {WriteData}
-
- {----------}
- Procedure C%Appname%Doc.DoCommand (theCommand: longint);
- Begin
- case theCommand of
- 0: ;
- otherwise
- inherited DoCommand (theCommand);
- end; {case}
- End; {DoCommand}
-
- End. {%unitname%}
-